﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>

<%

pid=request("pid")
ids=myid
Select Case pid
   Case "1"
      itidtit="原始森林"
   Case "2"
      itidtit="魔鬼山洞"
   Case "3"
      itidtit="丰富矿山"
   Case "4"
      itidtit="浩瀚北海"
 End Select
%>
<card title="<%=itidtit%>">
<p>
<%
set rsppp=Server.CreateObject("ADODB.Recordset")
rsstr="select * from wupin where ids="&myid
rsppp.open rsstr,liao,1,2
jjjj1=rsppp("mm1")
jjjj2=rsppp("mm2")
jjjj3=rsppp("mm3")
jjjj4=rsppp("mm4")
jjjj5=rsppp("hcj")
   rsppp.close
set rsppp=Nothing%>

<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
mysd=rs("sd")
myjj=rs("jj")
myxx=rs("xx")
if rs.recordcount<=1 then
if rs("tl")<1 then
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from kywap Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
Response.Write "GAME-OVER!<br/>您被怪物杀害了需重新复活才能继续游戏！<br/><a href='yp.asp?cc="&cc&"&amp;ve="&ve&"'>使用药品复活</a><br/>"
   rs.close
set rs=Nothing
'-----------------
else
'-----------------
dengji=clng(rs("dj"))
mygj=rs("gj")
myfs=rs("fs")
myjy=rs("jy")
mytl=rs("tl")
   rs.close
set rs=Nothing
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from pk where pid="&pid&" and cstr(ids)="&myid
rs1.open strSQL,liao,1,2
if rs1.eof then
Response.Write "怪物已被你打死！还不放过它吗？<br/><a href='index2.asp?pid="&pid&"&amp;cc="&cc&"&amp;ve="&ve&"'>[继续前进]</a><br/>"
'-----------------
else
'-----------------
if rs1("tl")>=1 then
gwsx=clng(rs1("gj")+rs1("fs"))
mysx=clng(mygj+myfs)
'------闪电魔法-----
if mysd<>0 then
sql="update sx set sd=sd-1 where cstr(ids)="&myid
  liao.Execute(sql)
gwpps=clng(mysx*0.2)
gwsx1=clng(gwpps*2)
mysx1=clng(gwsx*0.19)
'-----结界魔法----
elseif myjj<>0 then
sql="update sx set jj=jj-1 where cstr(ids)="&myid
  liao.Execute(sql)
mysx1=clng(gwsx*0.00)
gwsx1=clng(mysx*0.2)
'-----吸血魔法---
elseif myxx<>0 then
sql="update sx set xx=xx-1 where cstr(ids)="&myid
  liao.Execute(sql)
gwpps=clng(mysx*0.2)
gwsx1=clng(gwpps*2)
mysx1=clng(gwsx*0.19)
'-----没有魔法----
else
gwsx1=clng(mysx*0.2)
mysx1=clng(gwsx*0.19)
end if
'-----------------
sql="update pk set tl=tl-"&gwsx1&" where pid="&pid&" and cstr(ids)="&myid
  liao.Execute(sql)
sql="update sx set tl=tl-"&mysx1&" where cstr(ids)="&myid
  liao.Execute(sql)
gwjy1=rs1("tl")
if gwjy1<0 then
gwjy1=0
end if
Response.Write "怪物血量-"&gwsx1&"<br/>总("&gwjy1&"/"&rs1("jy")&")<br/>----攻击中----<br/>"
%>
<!--1===闪电效果===1-->
<%if mysd<>0 then%>
烈火术剩余<%=mysd%>次！<br/>
我的血量-<%=mysx1%>
<!--1===结界效果===1-->
<%elseif myjj<>0 then%>
圣盾术剩余<%=myjj%>次！<br/>
我的血量-<%=mysx1%>
<!--1===吸血魔法===1-->
<%elseif myxx<>0 then%>
刺杀术剩余<%=myxx%>次！<br/>
我的血量-<%=mysx1%>
<!--1==============1-->
<%else%>
<!--1=============1-->
我的血量-<%=mysx1%>
<%end if%>
<br/>总(<%=mytl%>/<%=myjy%>)
<br/><a href='gong1.asp?pid=<%=pid%>&amp;t=<%time%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>攻</a>.<a href='shou.asp?pid=<%=pid%>&amp;t=<%time%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>防</a>.<a href='yp.asp?pid=<%=pid%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>加</a>.<a href='tao.asp?pid=<%=pid%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>逃</a><br/>
<%
if jjjj1<>0 then
Response.Write "<a href='jaocl.asp?wpid=mm1&amp;cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>盾</a>."
else
Response.Write "盾."
end if
if jjjj2<>0 then
Response.Write "<a href='jaocl.asp?wpid=mm2&amp;cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>烈</a>."
else
Response.Write "烈."
end if
if jjjj4<>0 then
Response.Write "<a href='jaocl.asp?wpid=mm4&amp;cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>刺</a>."
else
Response.Write "刺."
end if
if jjjj3<>0 then
Response.Write "<a href='jaocl.asp?wpid=mm3&amp;cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>移</a><br/>"
else
Response.Write "移<br/>"
end if
if jjjj5<>0 then
Response.Write "<a href='syhcj.asp?wpid=hcj&amp;cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>使用回城卷</a>←<br/>"
end if
%>
<%else%>
<!--#include file="djname.asp"-->
<%
        dim suiji(5)
        suiji(0)="5"
	suiji(1)="10"
	suiji(2)="15"
	suiji(3)="20"
	suiji(4)="25"
	Randomize
	I=Int(Rnd()*5)
	sjyz=suiji(I)
tsjy=clng(rs1("dj")*5)
if tsjy=0 then
tsjy=5
end if
ddyz=clng(rs1("dj")*sjyz)
if ddyz>0 then
ddyz1="得到银子"&ddyz&"两,"
sql="update wupin set yz=yz+"&ddyz&" where cstr(ids)="&myid
  liao.Execute(sql)
else
ddyz1=""
end if
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="update sx set jy=jy+"&tsjy&" where cstr(ids)="&myid
  liao.Execute(sql)
Response.Write "怪物已被你打死！"&ddyz1&"经验提升"&tsjy&"!<br/>"&dengjiname&"<a href='index2.asp?pid="&pid&"&amp;cc="&cc&"&amp;ve="&ve&"'>[继续前进]</a><br/><a href='index.asp?cc="&cc&"&amp;ve="&ve&"'>[不去了.回城]</a><br/>"
end if
   rs1.close
set rs1=Nothing
end if
end if
end if


%>
========<br/>
<a href="bangz.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[相关帮助]</a><br/>

<%qingtian.shuchu%>

